home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS001.dsk / HELPER INSTRUCTIONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  53 lines
  1. 0  GOTO 100
  2. 1 W =  PEEK(33): IF W > LEN(Z$)  THEN  RETURN : REM  OUTPUT FORMATTER
  3. 2  IF  MID$ (Z$,W,1) < >" "  THEN W = W -1: GOTO 2
  4. 3  PRINT  LEFT$(Z$,W -1):W = W +1: IF SP = 1  THEN  PRINT 
  5. 4  IF  MID$ (Z$,W,1) = " "  THEN W = W +1: GOTO 4
  6. 5 Z$ =  MID$ (Z$,W): GOTO 1
  7. 7  GOSUB 1: PRINT Z$: PRINT : RETURN 
  8. 8  PRINT : INPUT "PRESS RETURN TO CONTINUE: ";R$: HOME : RETURN 
  9. 100  TEXT : HOME : PRINT "HELPER -- 02/17/80 -- A.C.E.S.": PRINT 
  10. 110 Z$ = "HELPER IS A SET OF KEYBOARD MACROS AND UTILITIES FOR APPLESOFT, INTEGER BASIC, AND THE APPLE MONITOR. IT IS INITIALIZED BY 'BRUN HELPER' OR 'CALL-25946'.  IT IS ACTIVATED WITH THE ESCAPE KEY.": GOSUB 7
  11. 120 Z$ = "HELPER RESIDES IN THE THIRD DOS BUFFER, FROM $9AA6 TO $9CD1, WHERE IT IS SAFE FROM ALL BUT MULTIPLE OPEN FILES, AND WILL SUPPORT LOWER CASE HARDWARE AFTER ENTERING '9BF0:18 18' FROM THE MONITOR.": GOSUB 7
  12. 130 Z$ = "HELPER PROVIDES FOUR MAIN TYPES OF FUNCTIONS: CURSOR MOVES, A STOP LIST PROGRAM, KEYBOARD MACROS, AND MONITOR SUBROUTINES.": GOSUB 7: GOSUB 8
  13. 200  PRINT "CURSOR MOVES:": PRINT : PRINT : PRINT "I  - MOVE CURSOR UP": PRINT "J  - MOVE CURSOR LEFT": PRINT "K  - MOVE CURSOR RIGHT": PRINT "M  - MOVE CURSOR DOWN": PRINT 
  14. 210  PRINT "Q  - MOVE CURSOR TO LINE 1": PRINT "A  - MOVE CURSOR TO LINE 12": PRINT "Z  - MOVE CURSOR TO LINE 24"
  15. 220  PRINT : PRINT : PRINT "STOP LIST:": PRINT : PRINT 
  16. 230 Z$ = "ANYTHING THAT IS PRINTING ON THE SCREEN CAN BE STOPPED BY PRESSING THE ESCAPE KEY ON THE KEYBOARD.  TO START PRINTING AGAIN, MERELY PRESS ANY KEY.": GOSUB 7: GOSUB 8
  17. 300  PRINT "KEYBOARD MACROS:": PRINT : PRINT : PRINT "C  - CATALOG AND RETURN": PRINT "D  - DELETE AND 16 ->": PRINT "E  - EXEC AND 16 ->": PRINT "G  - LOAD (GET) AND 16 ->"
  18. 310  PRINT "L  - LOCK AND 16 ->": PRINT "R  - RUN AND 16 ->": PRINT "U  - UNLOCK AND 16 ->": PRINT "S  - SAVE": PRINT "B  - B (FOR USE WITH LOAD/RUN/SAVE)"
  19. 315  PRINT "W  - WHERE AND HOW LONG FOR B-FILES"
  20. 320  PRINT : PRINT "H  - HOME AND EXIT": PRINT "T  - TEXT AND EXIT": PRINT "P  - TEXT, HOME, POKE 33,33 AND EXIT"
  21. 325  PRINT "N  - CALL-151 (ENTER MONITOR)": PRINT "X  - 3D0G AND RETURN (EXIT MONITOR)"
  22. 330  PRINT :Z$ = "ALL NON-ALPHABETIC CHARACTERS ARE PASSED THRU AND HELPER IS EXITED.": GOSUB 1: PRINT Z$: GOSUB 8
  23. 350  PRINT "USER DEFINED KEYBOARD MACROS:": PRINT : PRINT 
  24. 360 Z$ = "THE LETTERS F, O, AND V, HAVE BEEN LEFT UNDEFINED IN HELPER TO ALLOW FOR CUSTOMIZED KEYBOARD MACROS.  THE THREE 8-BYTE AREAS FOR F, O, AND V ARE AT $9C30, $9C38, AND $9C40, RESPECTIVELY.  ": GOSUB 1
  25. 370 Z$ = Z$ +"ALL CHARACTERS MUST HAVE THEIR SIGN BITS ON TO MEET MONITOR CONVENTIONS.  IF A CHARACTER IS REPLACED WITH $00, THE REST OF THE DEFINITION WILL BE REPLACED BY 16 RIGHT ARROWS AT EXECUTION TIME.  ": GOSUB 7
  26. 380 Z$ = "PLEASE EXAMINE THE OTHER MACROS AND TRY THE DEFAULTS FOR THESE COMMANDS BEFORE MODIFYING HELPER.": GOSUB 7: GOSUB 8
  27. 400  PRINT "MONITOR SUBROUTINES:": PRINT : PRINT 
  28. 410 Z$ = "HELPER PROVIDES EASY ACCESS TO THE USER SUBROUTINE INTERFACE OF THE MONITOR.  THE Y COMMAND INDICATES THAT THE NEXT CHARACTER, 0-3, WILL BE THE NUMBER OF THE SUBROUTINE TO BE HOOKED INTO THE MONITOR.  ": GOSUB 1
  29. 420 Z$ = Z$ +"THE ADDRESSES OF THE FOUR SUBROUTINES, 0-3 RESPECTIVELY, MUST BE PLACED AT $9C18 THRU $9C1F. TWO SUBROUTINES ARE PROVIDED WITH HELPER:": GOSUB 7
  30. 430  PRINT "0 - MEMORY WORD SEARCH -- WILL PRINT": PRINT "    ADDRESSES OF ALL OCCURRENCES OF": PRINT "    THE BYTE OR WORD ENTERED.": PRINT "    TARGET<START.END CTRL-Y": PRINT 
  31. 440  PRINT "1 - ASCII MEMORY DUMP": PRINT "    START.END CTRL-Y": GOSUB 8
  32. 600  HOME :Z$ = "HELPER2 IS A PACKAGE OF EXTENDED MONITOR SUBROUTINES DESIGNED FOR USE WITH HELPER.  THEY RESIDE NEAR THE TOP OF THE APPLE STACK, FROM $010A TO $017E.": GOSUB 1
  33. 610 Z$ = Z$ +"  MERELY ENTER 'BRUN HELPER2' TO HOOK THE NEW SUBROUTINES INTO THE HELPER PROGRAM.  THE USE OF HELPER2 IS OPTIONAL.": GOSUB 7
  34. 620 Z$ = "HELPER2 REPLACES SUBROUTINES 1-3 AS FOLLOWS:": GOSUB 7
  35. 630  PRINT "1 - IMPROVED ASCII DUMP": PRINT "    START.END CTRL-Y": PRINT 
  36. 640  PRINT "2 - HEX/ASCII DUMP (128 BYTES)": PRINT "    START CTRL-Y": PRINT 
  37. 650  PRINT "3 - IMPROVED DISASSEMBLER": PRINT "    START.END CTRL-Y": PRINT 
  38. 660  GOSUB 8
  39. 700  HOME : PRINT "ALPHABETICAL LISTING OF COMMANDS:": PRINT : PRINT 
  40. 701  PRINT "A - MIDDLE CURSOR   N - ENTER MONITOR"
  41. 702  PRINT "B - PASS THRU       O - USER DEFINED"
  42. 703  PRINT "C - CATALOG         P - POKE 33,33"
  43. 704  PRINT "D - DELETE          Q - TOP CURSOR"
  44. 705  PRINT "E - EXEC            R - RUN"
  45. 706  PRINT "F - USER DEFINED    S - SAVE"
  46. 707  PRINT "G - LOAD            T - TEXT"
  47. 708  PRINT "H - HOME            U - UNLOCK"
  48. 709  PRINT "I - UP CURSOR       V - USER DEFINED"
  49. 710  PRINT "J - LEFT CURSOR     W - WHERE"
  50. 711  PRINT "K - RIGHT CURSOR    X - EXIT MONITOR"
  51. 712  PRINT "L - LOCK            Y - SET CTRL-Y ADDR"
  52. 713  PRINT "M - DOWN CURSOR     Z - BOTTOM CURSOR"
  53. 714  END